From 39342d46b273c7ea11f00e9c9121c60e7b9d9ee5 Mon Sep 17 00:00:00 2001 From: "Eric S. Raymond" Date: Thu, 11 Mar 1993 08:36:39 +0000 Subject: [PATCH] Initial revision --- lisp/term/keyswap.el | 40 ++++++++++++++++++++++++++++++++++++++++ 1 file changed, 40 insertions(+) create mode 100644 lisp/term/keyswap.el diff --git a/lisp/term/keyswap.el b/lisp/term/keyswap.el new file mode 100644 index 00000000000..8143a53564b --- /dev/null +++ b/lisp/term/keyswap.el @@ -0,0 +1,40 @@ +;; keyswap.el --- swap BS and DEL keys + +;; Author: Eric S. Raymond +;; Keywords: terminals + +;; Copyright (C) 1992 Free Software Foundation, Inc. + +;; This file is part of GNU Emacs. + +;; GNU Emacs is free software; you can redistribute it and/or modify +;; it under the terms of the GNU General Public License as published by +;; the Free Software Foundation; either version 2, or (at your option) +;; any later version. + +;; GNU Emacs is distributed in the hope that it will be useful, +;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;; GNU General Public License for more details. + +;; You should have received a copy of the GNU General Public License +;; along with GNU Emacs; see the file COPYING. If not, write to +;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. + +;;; Commentary: + +;;; This package is meant to be called by other terminal packages. + +;;; Code: + +(let ((the-table (make-string 128 0))) + (let ((i 0)) + (while (< i 128) + (aset the-table i i) + (setq i (1+ i)))) + ;; Swap ^H and DEL + (aset the-table ?\177 ?\^h) + (aset the-table ?\^h ?\177) + (setq keyboard-translate-table the-table)) + +;;; keyswap.el ends here -- 2.30.2